/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / nndoc.elc.z / nndoc.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6c 61 72 73 69 40 69 |piled by| larsi@i|
|00000020| 66 69 2e 75 69 6f 2e 6e | 6f 20 6f 6e 20 46 72 69 |fi.uio.n|o on Fri|
|00000030| 20 4a 75 6e 20 32 38 20 | 32 30 3a 33 34 3a 30 32 | Jun 28 |20:34:02|
|00000040| 20 31 39 39 36 0a 3b 3b | 3b 20 66 72 6f 6d 20 66 | 1996.;;|; from f|
|00000050| 69 6c 65 20 2f 67 64 2f | 67 6e 75 2f 65 6d 61 63 |ile /gd/|gnu/emac|
|00000060| 73 2f 31 39 2e 30 2f 6c | 69 73 70 2f 6e 6e 64 6f |s/19.0/l|isp/nndo|
|00000070| 63 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |c.el.;;;| emacs v|
|00000080| 65 72 73 69 6f 6e 20 31 | 39 2e 33 31 2e 34 2e 0a |ersion 1|9.31.4..|
|00000090| 3b 3b 3b 20 62 79 74 65 | 63 6f 6d 70 20 76 65 72 |;;; byte|comp ver|
|000000a0| 73 69 6f 6e 20 46 53 46 | 20 32 2e 31 30 0a 3b 3b |sion FSF| 2.10.;;|
|000000b0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000c0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000d0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|000000e0| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|000000f0| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 38 2e |ist in E|macs 18.|
|00000100| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000110| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000120| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000130| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|00000140| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|00000150| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|00000160| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|00000170| 2d 76 65 72 73 69 6f 6e | 20 22 31 39 2e 32 39 22 |-version| "19.29"|
|00000180| 29 29 29 0a 20 20 20 20 | 28 65 72 72 6f 72 20 22 |))).    |(error "|
|00000190| 60 6e 6e 64 6f 63 2e 65 | 6c 27 20 77 61 73 20 63 |`nndoc.e|l' was c|
|000001a0| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|000001b0| 73 20 31 39 2e 32 39 20 | 6f 72 20 6c 61 74 65 72 |s 19.29 |or later|
|000001c0| 22 29 29 0a 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |"))...(b|yte-code|
|000001d0| 20 22 c0 c1 21 88 c0 c2 | 21 88 c0 c3 21 88 c0 c4 | "..!...|!...!...|
|000001e0| 21 88 c5 c6 c7 c8 5c 22 | c8 89 46 0e 09 42 16 09 |!.....\"|..F..B..|
|000001f0| c8 87 22 20 5b 72 65 71 | 75 69 72 65 20 6e 6e 68 |.." [req|uire nnh|
|00000200| 65 61 64 65 72 20 6d 65 | 73 73 61 67 65 20 6e 6e |eader me|ssage nn|
|00000210| 6d 61 69 6c 20 6e 6e 6f | 6f 20 6e 6e 64 6f 63 20 |mail nno|o nndoc |
|00000220| 6d 61 70 63 61 72 20 23 | 5b 28 70 29 20 22 08 43 |mapcar #|[(p) ".C|
|00000230| 87 22 20 5b 70 5d 20 31 | 5d 20 6e 69 6c 20 6e 6e |." [p] 1|] nil nn|
|00000240| 6f 6f 2d 64 65 66 69 6e | 69 74 69 6f 6e 2d 61 6c |oo-defin|ition-al|
|00000250| 69 73 74 5d 20 34 29 0a | 23 40 31 36 37 20 2a 54 |ist] 4).|#@167 *T|
|00000260| 79 70 65 20 6f 66 20 74 | 68 65 20 66 69 6c 65 2e |ype of t|he file.|
|00000270| 0a 4f 6e 65 20 6f 66 20 | 60 6d 62 6f 78 27 2c 20 |.One of |`mbox', |
|00000280| 60 62 61 62 79 6c 27 2c | 20 60 64 69 67 65 73 74 |`babyl',| `digest|
|00000290| 27 2c 20 60 6e 65 77 73 | 27 2c 20 60 72 6e 65 77 |', `news|', `rnew|
|000002a0| 73 27 2c 20 60 6d 6d 64 | 66 27 2c 20 60 66 6f 72 |s', `mmd|f', `for|
|000002b0| 77 61 72 64 27 2c 0a 60 | 6d 69 6d 65 2d 64 69 67 |ward',.`|mime-dig|
|000002c0| 65 73 74 27 2c 20 60 73 | 74 61 6e 64 61 72 64 2d |est', `s|tandard-|
|000002d0| 64 69 67 65 73 74 27 2c | 20 60 73 6c 61 63 6b 2d |digest',| `slack-|
|000002e0| 64 69 67 65 73 74 27 2c | 20 60 63 6c 61 72 69 2d |digest',| `clari-|
|000002f0| 62 72 69 65 66 73 27 20 | 6f 72 0a 60 67 75 65 73 |briefs' |or.`gues|
|00000300| 73 27 2e 1f 0a 28 64 65 | 66 76 61 72 20 6e 6e 64 |s'...(de|fvar nnd|
|00000310| 6f 63 2d 61 72 74 69 63 | 6c 65 2d 74 79 70 65 20 |oc-artic|le-type |
|00000320| 28 71 75 6f 74 65 20 67 | 75 65 73 73 29 20 28 23 |(quote g|uess) (#|
|00000330| 24 20 2e 20 2d 36 30 36 | 29 29 0a 28 6e 6e 6f 6f |$ . -606|)).(nnoo|
|00000340| 2d 64 65 66 69 6e 65 20 | 28 71 75 6f 74 65 20 6e |-define |(quote n|
|00000350| 6e 64 6f 63 2d 61 72 74 | 69 63 6c 65 2d 74 79 70 |ndoc-art|icle-typ|
|00000360| 65 29 20 6e 69 6c 29 0a | 23 40 34 37 20 2a 57 68 |e) nil).|#@47 *Wh|
|00000370| 65 74 68 65 72 20 74 68 | 65 20 6e 6e 64 6f 63 20 |ether th|e nndoc |
|00000380| 67 72 6f 75 70 20 69 73 | 20 60 6d 61 69 6c 27 20 |group is| `mail' |
|00000390| 6f 72 20 60 70 6f 73 74 | 27 2e 1f 0a 28 64 65 66 |or `post|'...(def|
|000003a0| 76 61 72 20 6e 6e 64 6f | 63 2d 70 6f 73 74 2d 74 |var nndo|c-post-t|
|000003b0| 79 70 65 20 28 71 75 6f | 74 65 20 6d 61 69 6c 29 |ype (quo|te mail)|
|000003c0| 20 28 23 24 20 2e 20 2d | 38 37 37 29 29 0a 28 62 | (#$ . -|877)).(b|
|000003d0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|000003e0| c3 c4 21 84 56 00 c5 c6 | c7 c8 c9 ca 0e 0b 50 1e |..!.V...|......P.|
|000003f0| 5c 66 cd ce 0e 5c 66 5c | 22 83 27 00 0e 5c 66 cf |\f...\f\|".'..\f.|
|00000400| 89 94 4f 82 29 00 0e 5c | 66 29 42 d0 42 42 d1 d2 |..O.)..\|f)B.BB..|
|00000410| d3 d4 d5 d6 d7 ca d8 d9 | da 5c 22 db 51 42 c9 dc |........|.\".QB..|
|00000420| d8 dd da 5c 22 db 51 42 | de 42 42 42 df 42 42 42 |...\".QB|.BBB.BBB|
|00000430| 42 42 42 42 42 42 42 14 | c4 0e 20 42 16 20 c3 e1 |BBBBBBB.|.. B. ..|
|00000440| 21 84 65 00 c2 16 21 e1 | 0e 20 42 16 20 c0 e1 c2 |!.e...!.|. B. ...|
|00000450| 5c 22 88 c3 e2 21 84 79 | 00 c2 16 5c 22 e2 0e 20 |\"...!.y|...\".. |
|00000460| 42 16 20 c0 e2 c2 5c 22 | 88 c3 e3 21 84 8d 00 c2 |B. ...\"|...!....|
|00000470| 16 23 e3 0e 20 42 16 20 | c0 e3 c2 5c 22 88 c3 e4 |.#.. B. |...\"...|
|00000480| 21 84 a1 00 c2 16 24 e4 | 0e 20 42 16 20 c0 e4 c2 |!.....$.|. B. ...|
|00000490| 5c 22 88 c3 e5 21 84 b5 | 00 c2 16 25 e5 0e 20 42 |\"...!..|...%.. B|
|000004a0| 16 20 c0 e5 c2 5c 22 88 | c3 e6 21 84 c9 00 c2 16 |. ...\".|..!.....|
|000004b0| 26 e6 0e 20 42 16 20 c0 | e6 c2 5c 22 88 c3 e7 21 |&.. B. .|..\"...!|
|000004c0| 84 dd 00 c2 16 27 e7 0e | 20 42 16 20 c0 e7 c2 5c |.....'..| B. ...\|
|000004d0| 22 88 c3 e8 21 84 f1 00 | c2 16 28 e8 0e 20 42 16 |"...!...|..(.. B.|
|000004e0| 20 c0 e8 c2 5c 22 88 c3 | e9 21 84 05 01 c2 16 29 | ...\"..|.!.....)|
|000004f0| e9 0e 20 42 16 20 c0 e9 | c2 5c 22 88 c3 ea 21 84 |.. B. ..|.\"...!.|
|00000500| 19 01 c2 16 2a ea 0e 20 | 42 16 20 c0 ea c2 5c 22 |....*.. |B. ...\"|
|00000510| 88 c3 eb 21 84 2d 01 c2 | 16 2b eb 0e 20 42 16 20 |...!.-..|.+.. B. |
|00000520| c0 eb c2 5c 22 88 c3 ec | 21 84 41 01 c2 16 2c ec |...\"...|!.A...,.|
|00000530| 0e 20 42 16 20 c0 ec c2 | 5c 22 88 c3 ed 21 84 55 |. B. ...|\"...!.U|
|00000540| 01 c2 16 2d ed 0e 20 42 | 16 20 c0 ed c2 5c 22 88 |...-.. B|. ...\".|
|00000550| c3 ee 21 84 69 01 c2 16 | 2e ee 0e 20 42 16 20 c0 |..!.i...|... B. .|
|00000560| ee c2 5c 22 88 c3 ef 21 | 84 7d 01 c2 16 2f ef 0e |..\"...!|.}.../..|
|00000570| 20 42 16 20 c0 ef c2 5c | 22 88 c3 f0 21 84 91 01 | B. ...\|"...!...|
|00000580| c2 16 30 f0 0e 20 42 16 | 20 c0 f0 c2 5c 22 88 c3 |..0.. B.| ...\"..|
|00000590| f1 21 84 a5 01 f2 16 31 | f1 0e 20 42 16 20 c0 f1 |.!.....1|.. B. ..|
|000005a0| c2 5c 22 88 c3 f3 21 84 | b9 01 c2 16 33 f3 0e 20 |.\"...!.|....3.. |
|000005b0| 42 16 20 c0 f3 c2 5c 22 | 87 22 20 5b 6e 6e 6f 6f |B. ...\"|." [nnoo|
|000005c0| 2d 64 65 66 69 6e 65 20 | 6e 6e 64 6f 63 2d 70 6f |-define |nndoc-po|
|000005d0| 73 74 2d 74 79 70 65 20 | 6e 69 6c 20 62 6f 75 6e |st-type |nil boun|
|000005e0| 64 70 20 6e 6e 64 6f 63 | 2d 74 79 70 65 2d 61 6c |dp nndoc|-type-al|
|000005f0| 69 73 74 20 28 6d 6d 64 | 66 20 28 61 72 74 69 63 |ist (mmd|f (artic|
|00000600| 6c 65 2d 62 65 67 69 6e | 20 2e 20 22 5e 01 01 01 |le-begin| . "^...|
|00000610| 01 5c 6e 22 29 20 28 62 | 6f 64 79 2d 65 6e 64 20 |.\n") (b|ody-end |
|00000620| 2e 20 22 5e 01 01 01 01 | 5c 6e 22 29 29 20 28 6e |. "^....|\n")) (n|
|00000630| 65 77 73 20 28 61 72 74 | 69 63 6c 65 2d 62 65 67 |ews (art|icle-beg|
|00000640| 69 6e 20 2e 20 22 5e 50 | 61 74 68 3a 22 29 29 20 |in . "^P|ath:")) |
|00000650| 28 72 6e 65 77 73 20 28 | 61 72 74 69 63 6c 65 2d |(rnews (|article-|
|00000660| 62 65 67 69 6e 20 2e 20 | 22 5e 23 21 20 2a 72 6e |begin . |"^#! *rn|
|00000670| 65 77 73 20 2b 5c 5c 28 | 5b 30 2d 39 5d 2b 5c 5c |ews +\\(|[0-9]+\\|
|00000680| 29 20 2a 5c 6e 22 29 20 | 28 62 6f 64 79 2d 65 6e |) *\n") |(body-en|
|00000690| 64 2d 66 75 6e 63 74 69 | 6f 6e 20 2e 20 6e 6e 64 |d-functi|on . nnd|
|000006a0| 6f 63 2d 72 6e 65 77 73 | 2d 62 6f 64 79 2d 65 6e |oc-rnews|-body-en|
|000006b0| 64 29 29 20 6d 62 6f 78 | 20 61 72 74 69 63 6c 65 |d)) mbox| article|
|000006c0| 2d 62 65 67 69 6e 20 22 | 5e 22 20 6d 65 73 73 61 |-begin "|^" messa|
|000006d0| 67 65 2d 75 6e 69 78 2d | 6d 61 69 6c 2d 64 65 6c |ge-unix-|mail-del|
|000006e0| 69 6d 69 74 65 72 20 64 | 65 6c 69 6d 20 73 74 72 |imiter d|elim str|
|000006f0| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5c 6e 5c 5c 27 |ing-matc|h "\n\\'|
|00000700| 22 20 30 20 28 28 62 6f | 64 79 2d 65 6e 64 2d 66 |" 0 ((bo|dy-end-f|
|00000710| 75 6e 63 74 69 6f 6e 20 | 2e 20 6e 6e 64 6f 63 2d |unction |. nndoc-|
|00000720| 6d 62 6f 78 2d 62 6f 64 | 79 2d 65 6e 64 29 29 20 |mbox-bod|y-end)) |
|00000730| 28 62 61 62 79 6c 20 28 | 61 72 74 69 63 6c 65 2d |(babyl (|article-|
|00000740| 62 65 67 69 6e 20 2e 20 | 22 1f 5c 66 20 2a 5c 6e |begin . |".\f *\n|
|00000750| 22 29 20 28 62 6f 64 79 | 2d 65 6e 64 20 2e 20 22 |") (body|-end . "|
|00000760| 1f 22 29 20 28 62 6f 64 | 79 2d 62 65 67 69 6e 2d |.") (bod|y-begin-|
|00000770| 66 75 6e 63 74 69 6f 6e | 20 2e 20 6e 6e 64 6f 63 |function| . nndoc|
|00000780| 2d 62 61 62 79 6c 2d 62 | 6f 64 79 2d 62 65 67 69 |-babyl-b|ody-begi|
|00000790| 6e 29 20 28 68 65 61 64 | 2d 62 65 67 69 6e 2d 66 |n) (head|-begin-f|
|000007a0| 75 6e 63 74 69 6f 6e 20 | 2e 20 6e 6e 64 6f 63 2d |unction |. nndoc-|
|000007b0| 62 61 62 79 6c 2d 68 65 | 61 64 2d 62 65 67 69 6e |babyl-he|ad-begin|
|000007c0| 29 29 20 28 66 6f 72 77 | 61 72 64 20 28 61 72 74 |)) (forw|ard (art|
|000007d0| 69 63 6c 65 2d 62 65 67 | 69 6e 20 2e 20 22 5e 2d |icle-beg|in . "^-|
|000007e0| 2b 20 53 74 61 72 74 20 | 6f 66 20 66 6f 72 77 61 |+ Start |of forwa|
|000007f0| 72 64 65 64 20 6d 65 73 | 73 61 67 65 20 2d 2b 5c |rded mes|sage -+\|
|00000800| 6e 2b 22 29 20 28 62 6f | 64 79 2d 65 6e 64 20 2e |n+") (bo|dy-end .|
|00000810| 20 22 5e 2d 2b 20 45 6e | 64 20 6f 66 20 66 6f 72 | "^-+ En|d of for|
|00000820| 77 61 72 64 65 64 20 6d | 65 73 73 61 67 65 20 2d |warded m|essage -|
|00000830| 2b 24 22 29 20 28 70 72 | 65 70 61 72 65 2d 62 6f |+$") (pr|epare-bo|
|00000840| 64 79 20 2e 20 6e 6e 64 | 6f 63 2d 75 6e 71 75 6f |dy . nnd|oc-unquo|
|00000850| 74 65 2d 64 61 73 68 65 | 73 29 29 20 28 63 6c 61 |te-dashe|s)) (cla|
|00000860| 72 69 2d 62 72 69 65 66 | 73 20 28 61 72 74 69 63 |ri-brief|s (artic|
|00000870| 6c 65 2d 62 65 67 69 6e | 20 2e 20 22 5e 20 5c 5c |le-begin| . "^ \\|
|00000880| 2a 22 29 20 28 62 6f 64 | 79 2d 65 6e 64 20 2e 20 |*") (bod|y-end . |
|00000890| 22 5e 09 2d 2d 2d 2d 2d | 2d 2a 5b 20 09 5d 5e 2a |"^.-----|-*[ .]^*|
|000008a0| 5c 6e 5e 20 5c 5c 2a 22 | 29 20 28 62 6f 64 79 2d |\n^ \\*"|) (body-|
|000008b0| 62 65 67 69 6e 20 2e 20 | 22 5e 09 22 29 20 28 68 |begin . |"^.") (h|
|000008c0| 65 61 64 2d 65 6e 64 20 | 2e 20 22 5e 09 22 29 20 |ead-end |. "^.") |
|000008d0| 28 67 65 6e 65 72 61 74 | 65 2d 68 65 61 64 20 2e |(generat|e-head .|
|000008e0| 20 6e 6e 64 6f 63 2d 67 | 65 6e 65 72 61 74 65 2d | nndoc-g|enerate-|
|000008f0| 63 6c 61 72 69 2d 62 72 | 69 65 66 73 2d 68 65 61 |clari-br|iefs-hea|
|00000900| 64 29 20 28 61 72 74 69 | 63 6c 65 2d 74 72 61 6e |d) (arti|cle-tran|
|00000910| 73 66 6f 72 6d 20 2e 20 | 6e 6e 64 6f 63 2d 74 72 |sform . |nndoc-tr|
|00000920| 61 6e 73 66 6f 72 6d 2d | 63 6c 61 72 69 2d 62 72 |ansform-|clari-br|
|00000930| 69 65 66 73 29 29 20 28 | 73 6c 61 63 6b 2d 64 69 |iefs)) (|slack-di|
|00000940| 67 65 73 74 20 28 61 72 | 74 69 63 6c 65 2d 62 65 |gest (ar|ticle-be|
|00000950| 67 69 6e 20 2e 20 22 5e | 2d 2d 2d 2d 2d 2d 2d 2d |gin . "^|--------|
|00000960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000970| 2d 2d 2d 2d 2d 2d 2a 5b | 5c 6e 20 09 5d 2b 22 29 |------*[|\n .]+")|
|00000980| 20 28 68 65 61 64 2d 65 | 6e 64 20 2e 20 22 5e 20 | (head-e|nd . "^ |
|00000990| 3f 24 22 29 20 28 62 6f | 64 79 2d 65 6e 64 2d 66 |?$") (bo|dy-end-f|
|000009a0| 75 6e 63 74 69 6f 6e 20 | 2e 20 6e 6e 64 6f 63 2d |unction |. nndoc-|
|000009b0| 64 69 67 65 73 74 2d 62 | 6f 64 79 2d 65 6e 64 29 |digest-b|ody-end)|
|000009c0| 20 28 62 6f 64 79 2d 62 | 65 67 69 6e 20 2e 20 22 | (body-b|egin . "|
|000009d0| 5e 20 3f 24 22 29 20 28 | 66 69 6c 65 2d 65 6e 64 |^ ?$") (|file-end|
|000009e0| 20 2e 20 22 5e 45 6e 64 | 20 6f 66 22 29 20 28 70 | . "^End| of") (p|
|000009f0| 72 65 70 61 72 65 2d 62 | 6f 64 79 20 2e 20 6e 6e |repare-b|ody . nn|
|00000a00| 64 6f 63 2d 75 6e 71 75 | 6f 74 65 2d 64 61 73 68 |doc-unqu|ote-dash|
|00000a10| 65 73 29 29 20 28 6d 69 | 6d 65 2d 64 69 67 65 73 |es)) (mi|me-diges|
|00000a20| 74 20 28 61 72 74 69 63 | 6c 65 2d 62 65 67 69 6e |t (artic|le-begin|
|00000a30| 20 2e 20 22 22 29 20 28 | 68 65 61 64 2d 65 6e 64 | . "") (|head-end|
|00000a40| 20 2e 20 22 5e 20 3f 24 | 22 29 20 28 62 6f 64 79 | . "^ ?$|") (body|
|00000a50| 2d 65 6e 64 20 2e 20 22 | 22 29 20 28 66 69 6c 65 |-end . "|") (file|
|00000a60| 2d 65 6e 64 20 2e 20 22 | 22 29 29 20 73 74 61 6e |-end . "|")) stan|
|00000a70| 64 61 72 64 2d 64 69 67 | 65 73 74 20 66 69 72 73 |dard-dig|est firs|
|00000a80| 74 2d 61 72 74 69 63 6c | 65 20 6d 61 6b 65 2d 73 |t-articl|e make-s|
|00000a90| 74 72 69 6e 67 20 37 30 | 20 34 35 20 22 5c 6e 5c |tring 70| 45 "\n\|
|00000aa0| 6e 2b 22 20 22 5c 6e 5c | 6e 22 20 33 30 20 28 28 |n+" "\n\|n" 30 ((|
|00000ab0| 70 72 65 70 61 72 65 2d | 62 6f 64 79 20 2e 20 6e |prepare-|body . n|
|00000ac0| 6e 64 6f 63 2d 75 6e 71 | 75 6f 74 65 2d 64 61 73 |ndoc-unq|uote-das|
|00000ad0| 68 65 73 29 20 28 62 6f | 64 79 2d 65 6e 64 2d 66 |hes) (bo|dy-end-f|
|00000ae0| 75 6e 63 74 69 6f 6e 20 | 2e 20 6e 6e 64 6f 63 2d |unction |. nndoc-|
|00000af0| 64 69 67 65 73 74 2d 62 | 6f 64 79 2d 65 6e 64 29 |digest-b|ody-end)|
|00000b00| 20 28 68 65 61 64 2d 65 | 6e 64 20 2e 20 22 5e 20 | (head-e|nd . "^ |
|00000b10| 3f 24 22 29 20 28 62 6f | 64 79 2d 62 65 67 69 6e |?$") (bo|dy-begin|
|00000b20| 20 2e 20 22 5e 20 3f 5c | 6e 22 29 20 28 66 69 6c | . "^ ?\|n") (fil|
|00000b30| 65 2d 65 6e 64 20 2e 20 | 22 5e 45 6e 64 20 6f 66 |e-end . |"^End of|
|00000b40| 20 2e 2a 64 69 67 65 73 | 74 2e 2a 5b 30 2d 39 5d | .*diges|t.*[0-9]|
|00000b50| 2e 2a 5c 6e 5c 5c 2a 5c | 5c 2a 5c 5c 7c 5e 45 6e |.*\n\\*\|\*\\|^En|
|00000b60| 64 20 6f 66 2e 2a 44 69 | 67 65 73 74 20 2a 24 22 |d of.*Di|gest *$"|
|00000b70| 29 29 20 28 28 67 75 65 | 73 73 20 28 67 75 65 73 |)) ((gue|ss (gues|
|00000b80| 73 20 2e 20 6e 6e 64 6f | 63 2d 67 75 65 73 73 2d |s . nndo|c-guess-|
|00000b90| 74 79 70 65 29 29 20 28 | 64 69 67 65 73 74 20 28 |type)) (|digest (|
|00000ba0| 67 75 65 73 73 20 2e 20 | 6e 6e 64 6f 63 2d 67 75 |guess . |nndoc-gu|
|00000bb0| 65 73 73 2d 64 69 67 65 | 73 74 2d 74 79 70 65 29 |ess-dige|st-type)|
|00000bc0| 29 29 20 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |)) curre|nt-load-|
|00000bd0| 6c 69 73 74 20 6e 6e 64 | 6f 63 2d 66 69 6c 65 2d |list nnd|oc-file-|
|00000be0| 62 65 67 69 6e 20 6e 6e | 64 6f 63 2d 66 69 72 73 |begin nn|doc-firs|
|00000bf0| 74 2d 61 72 74 69 63 6c | 65 20 6e 6e 64 6f 63 2d |t-articl|e nndoc-|
|00000c00| 61 72 74 69 63 6c 65 2d | 65 6e 64 20 6e 6e 64 6f |article-|end nndo|
|00000c10| 63 2d 61 72 74 69 63 6c | 65 2d 62 65 67 69 6e 20 |c-articl|e-begin |
|00000c20| 6e 6e 64 6f 63 2d 68 65 | 61 64 2d 62 65 67 69 6e |nndoc-he|ad-begin|
|00000c30| 20 6e 6e 64 6f 63 2d 68 | 65 61 64 2d 65 6e 64 20 | nndoc-h|ead-end |
|00000c40| 6e 6e 64 6f 63 2d 66 69 | 6c 65 2d 65 6e 64 20 6e |nndoc-fi|le-end n|
|00000c50| 6e 64 6f 63 2d 62 6f 64 | 79 2d 62 65 67 69 6e 20 |ndoc-bod|y-begin |
|00000c60| 6e 6e 64 6f 63 2d 62 6f | 64 79 2d 65 6e 64 2d 66 |nndoc-bo|dy-end-f|
|00000c70| 75 6e 63 74 69 6f 6e 20 | 6e 6e 64 6f 63 2d 62 6f |unction |nndoc-bo|
|00000c80| 64 79 2d 62 65 67 69 6e | 2d 66 75 6e 63 74 69 6f |dy-begin|-functio|
|00000c90| 6e 20 6e 6e 64 6f 63 2d | 68 65 61 64 2d 62 65 67 |n nndoc-|head-beg|
|00000ca0| 69 6e 2d 66 75 6e 63 74 | 69 6f 6e 20 6e 6e 64 6f |in-funct|ion nndo|
|00000cb0| 63 2d 62 6f 64 79 2d 65 | 6e 64 20 6e 6e 64 6f 63 |c-body-e|nd nndoc|
|00000cc0| 2d 64 69 73 73 65 63 74 | 69 6f 6e 2d 61 6c 69 73 |-dissect|ion-alis|
|00000cd0| 74 20 6e 6e 64 6f 63 2d | 70 72 65 70 61 72 65 2d |t nndoc-|prepare-|
|00000ce0| 62 6f 64 79 20 6e 6e 64 | 6f 63 2d 67 65 6e 65 72 |body nnd|oc-gener|
|00000cf0| 61 74 65 2d 68 65 61 64 | 20 6e 6e 64 6f 63 2d 61 |ate-head| nndoc-a|
|00000d00| 72 74 69 63 6c 65 2d 74 | 72 61 6e 73 66 6f 72 6d |rticle-t|ransform|
|00000d10| 20 6e 6e 64 6f 63 2d 73 | 74 61 74 75 73 2d 73 74 | nndoc-s|tatus-st|
|00000d20| 72 69 6e 67 20 22 22 20 | 6e 6e 64 6f 63 2d 67 72 |ring "" |nndoc-gr|
|00000d30| 6f 75 70 2d 61 6c 69 73 | 74 5d 20 31 36 29 0a 23 |oup-alis|t] 16).#|
|00000d40| 40 32 38 20 43 75 72 72 | 65 6e 74 20 6e 6e 64 6f |@28 Curr|ent nndo|
|00000d50| 63 20 6e 65 77 73 20 62 | 75 66 66 65 72 2e 1f 0a |c news b|uffer...|
|00000d60| 28 64 65 66 76 61 72 20 | 6e 6e 64 6f 63 2d 63 75 |(defvar |nndoc-cu|
|00000d70| 72 72 65 6e 74 2d 62 75 | 66 66 65 72 20 6e 69 6c |rrent-bu|ffer nil|
|00000d80| 20 28 23 24 20 2e 20 33 | 33 39 36 29 29 0a 28 62 | (#$ . 3|396)).(b|
|00000d90| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|00000da0| c3 c4 21 84 0d 00 c2 14 | c4 0d 42 15 c0 c4 c2 5c |..!.....|..B....\|
|00000db0| 22 87 22 20 5b 6e 6e 6f | 6f 2d 64 65 66 69 6e 65 |"." [nno|o-define|
|00000dc0| 20 6e 6e 64 6f 63 2d 63 | 75 72 72 65 6e 74 2d 62 | nndoc-c|urrent-b|
|00000dd0| 75 66 66 65 72 20 6e 69 | 6c 20 62 6f 75 6e 64 70 |uffer ni|l boundp|
|00000de0| 20 6e 6e 64 6f 63 2d 61 | 64 64 72 65 73 73 20 63 | nndoc-a|ddress c|
|00000df0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000e00| 5d 20 33 29 0a 23 40 31 | 36 20 6e 6e 64 6f 63 20 |] 3).#@1|6 nndoc |
|00000e10| 76 65 72 73 69 6f 6e 2e | 1f 0a 28 64 65 66 63 6f |version.|..(defco|
|00000e20| 6e 73 74 20 6e 6e 64 6f | 63 2d 76 65 72 73 69 6f |nst nndo|c-versio|
|00000e30| 6e 20 22 6e 6e 64 6f 63 | 20 31 2e 30 22 20 28 23 |n "nndoc| 1.0" (#|
|00000e40| 24 20 2e 20 33 35 39 34 | 29 29 0a 28 6e 6e 6f 6f |$ . 3594|)).(nnoo|
|00000e50| 2d 64 65 66 69 6e 65 2d | 62 61 73 69 63 73 2d 31 |-define-|basics-1|
|00000e60| 20 28 71 75 6f 74 65 20 | 6e 6e 64 6f 63 29 29 0a | (quote |nndoc)).|
|00000e70| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 6e 64 6f 63 |(defalia|s 'nndoc|
|00000e80| 2d 72 65 74 72 69 65 76 | 65 2d 68 65 61 64 65 72 |-retriev|e-header|
|00000e90| 73 20 23 5b 28 61 72 74 | 69 63 6c 65 73 20 26 6f |s #[(art|icles &o|
|00000ea0| 70 74 69 6f 6e 61 6c 20 | 6e 65 77 73 67 72 6f 75 |ptional |newsgrou|
|00000eb0| 70 20 73 65 72 76 65 72 | 20 66 65 74 63 68 2d 6f |p server| fetch-o|
|00000ec0| 6c 64 29 20 22 c0 09 5c | 6e 5c 22 85 7b 00 8a 0b |ld) "..\|n\".{...|
|00000ed0| 71 88 c4 20 88 c5 89 1e | 06 1e 07 0e 08 40 3b 83 |q.. ....|.....@;.|
|00000ee0| 1f 00 c9 82 7a 00 0e 08 | 83 76 00 0e 08 89 41 16 |....z...|.v....A.|
|00000ef0| 08 40 89 16 07 0e 5c 6e | 9e 41 89 16 06 83 1f 00 |.@....\n|.A......|
|00000f00| cb cc 0e 07 5c 22 63 88 | 0e 0d 83 4d 00 0e 0d 0e |....\"c.|...M....|
|00000f10| 07 21 88 82 59 00 ce 0e | 0f 0e 06 40 0e 06 41 40 |.!..Y...|...@..A@|
|00000f20| 23 88 64 62 88 60 53 66 | d0 55 84 67 00 d1 63 88 |#.db.`Sf|.U.g..c.|
|00000f30| cb d2 d3 0e 06 38 5c 22 | 63 88 d4 63 88 82 1f 00 |.....8\"|c..c....|
|00000f40| d5 20 88 c9 2b 87 22 20 | 5b 6e 6e 64 6f 63 2d 70 |. ..+." |[nndoc-p|
|00000f50| 6f 73 73 69 62 6c 79 2d | 63 68 61 6e 67 65 2d 62 |ossibly-|change-b|
|00000f60| 75 66 66 65 72 20 6e 65 | 77 73 67 72 6f 75 70 20 |uffer ne|wsgroup |
|00000f70| 73 65 72 76 65 72 20 6e | 6e 74 70 2d 73 65 72 76 |server n|ntp-serv|
|00000f80| 65 72 2d 62 75 66 66 65 | 72 20 65 72 61 73 65 2d |er-buffe|r erase-|
|00000f90| 62 75 66 66 65 72 20 6e | 69 6c 20 65 6e 74 72 79 |buffer n|il entry|
|00000fa0| 20 61 72 74 69 63 6c 65 | 20 61 72 74 69 63 6c 65 | article| article|
|00000fb0| 73 20 68 65 61 64 65 72 | 73 20 6e 6e 64 6f 63 2d |s header|s nndoc-|
|00000fc0| 64 69 73 73 65 63 74 69 | 6f 6e 2d 61 6c 69 73 74 |dissecti|on-alist|
|00000fd0| 20 66 6f 72 6d 61 74 20 | 22 32 32 31 20 25 64 20 | format |"221 %d |
|00000fe0| 41 72 74 69 63 6c 65 20 | 72 65 74 72 69 65 76 65 |Article |retrieve|
|00000ff0| 64 2e 5c 6e 22 20 6e 6e | 64 6f 63 2d 67 65 6e 65 |d.\n" nn|doc-gene|
|00001000| 72 61 74 65 2d 68 65 61 | 64 20 69 6e 73 65 72 74 |rate-hea|d insert|
|00001010| 2d 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e |-buffer-|substrin|
|00001020| 67 20 6e 6e 64 6f 63 2d | 63 75 72 72 65 6e 74 2d |g nndoc-|current-|
|00001030| 62 75 66 66 65 72 20 31 | 30 20 22 5c 6e 22 20 22 |buffer 1|0 "\n" "|
|00001040| 4c 69 6e 65 73 3a 20 25 | 64 5c 6e 22 20 34 20 22 |Lines: %|d\n" 4 "|
|00001050| 2e 5c 6e 22 20 6e 6e 68 | 65 61 64 65 72 2d 66 6f |.\n" nnh|eader-fo|
|00001060| 6c 64 2d 63 6f 6e 74 69 | 6e 75 61 74 69 6f 6e 2d |ld-conti|nuation-|
|00001070| 6c 69 6e 65 73 5d 20 34 | 5d 29 0a 28 6e 6e 6f 6f |lines] 4|]).(nnoo|
|00001080| 2d 72 65 67 69 73 74 65 | 72 2d 66 75 6e 63 74 69 |-registe|r-functi|
|00001090| 6f 6e 20 28 71 75 6f 74 | 65 20 6e 6e 64 6f 63 2d |on (quot|e nndoc-|
|000010a0| 72 65 74 72 69 65 76 65 | 2d 68 65 61 64 65 72 73 |retrieve|-headers|
|000010b0| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6e 6e |)).(defa|lias 'nn|
|000010c0| 64 6f 63 2d 72 65 71 75 | 65 73 74 2d 61 72 74 69 |doc-requ|est-arti|
|000010d0| 63 6c 65 20 23 5b 28 61 | 72 74 69 63 6c 65 20 26 |cle #[(a|rticle &|
|000010e0| 6f 70 74 69 6f 6e 61 6c | 20 6e 65 77 73 67 72 6f |optional| newsgro|
|000010f0| 75 70 20 73 65 72 76 65 | 72 20 62 75 66 66 65 72 |up serve|r buffer|
|00001100| 29 20 22 c0 09 5c 6e 5c | 22 88 8a 0b 86 0b 00 5c |) "..\n\|"......\|
|00001110| 66 0d 0e 06 9e 41 c7 1e | 08 1e 09 89 1b 71 88 ca |f....A..|.....q..|
|00001120| 20 88 0d 3b 3f 85 59 00 | cb 0e 5c 66 0e 09 40 0e | ..;?.Y.|..\f..@.|
|00001130| 09 41 40 23 88 cd 63 88 | 60 16 08 cb 0e 5c 66 ce |.A@#..c.|`....\f.|
|00001140| 0e 09 38 cf 0e 09 38 23 | 88 0e 08 62 88 0e 10 83 |..8...8#|...b....|
|00001150| 4e 00 0e 10 20 88 0e 11 | 83 58 00 0e 11 0d 21 88 |N... ...|.X....!.|
|00001160| d2 2c 87 22 20 5b 6e 6e | 64 6f 63 2d 70 6f 73 73 |.,." [nn|doc-poss|
|00001170| 69 62 6c 79 2d 63 68 61 | 6e 67 65 2d 62 75 66 66 |ibly-cha|nge-buff|
|00001180| 65 72 20 6e 65 77 73 67 | 72 6f 75 70 20 73 65 72 |er newsg|roup ser|
|00001190| 76 65 72 20 62 75 66 66 | 65 72 20 6e 6e 74 70 2d |ver buff|er nntp-|
|000011a0| 73 65 72 76 65 72 2d 62 | 75 66 66 65 72 20 61 72 |server-b|uffer ar|
|000011b0| 74 69 63 6c 65 20 6e 6e | 64 6f 63 2d 64 69 73 73 |ticle nn|doc-diss|
|000011c0| 65 63 74 69 6f 6e 2d 61 | 6c 69 73 74 20 6e 69 6c |ection-a|list nil|
|000011d0| 20 62 65 67 20 65 6e 74 | 72 79 20 65 72 61 73 65 | beg ent|ry erase|
|000011e0| 2d 62 75 66 66 65 72 20 | 69 6e 73 65 72 74 2d 62 |-buffer |insert-b|
|000011f0| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 20 |uffer-su|bstring |
|00001200| 6e 6e 64 6f 63 2d 63 75 | 72 72 65 6e 74 2d 62 75 |nndoc-cu|rrent-bu|
|00001210| 66 66 65 72 20 22 5c 6e | 22 20 32 20 33 20 6e 6e |ffer "\n|" 2 3 nn|
|00001220| 64 6f 63 2d 70 72 65 70 | 61 72 65 2d 62 6f 64 79 |doc-prep|are-body|
|00001230| 20 6e 6e 64 6f 63 2d 61 | 72 74 69 63 6c 65 2d 74 | nndoc-a|rticle-t|
|00001240| 72 61 6e 73 66 6f 72 6d | 20 74 5d 20 36 5d 29 0a |ransform| t] 6]).|
|00001250| 28 6e 6e 6f 6f 2d 72 65 | 67 69 73 74 65 72 2d 66 |(nnoo-re|gister-f|
|00001260| 75 6e 63 74 69 6f 6e 20 | 28 71 75 6f 74 65 20 6e |unction |(quote n|
|00001270| 6e 64 6f 63 2d 72 65 71 | 75 65 73 74 2d 61 72 74 |ndoc-req|uest-art|
|00001280| 69 63 6c 65 29 29 0a 23 | 40 32 30 20 53 65 6c 65 |icle)).#|@20 Sele|
|00001290| 63 74 20 6e 65 77 73 20 | 47 52 4f 55 50 2e 1f 0a |ct news |GROUP...|
|000012a0| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 6e 64 6f 63 |(defalia|s 'nndoc|
|000012b0| 2d 72 65 71 75 65 73 74 | 2d 67 72 6f 75 70 20 23 |-request|-group #|
|000012c0| 5b 28 67 72 6f 75 70 20 | 26 6f 70 74 69 6f 6e 61 |[(group |&optiona|
|000012d0| 6c 20 73 65 72 76 65 72 | 20 64 6f 6e 74 2d 63 68 |l server| dont-ch|
|000012e0| 65 63 6b 29 20 22 c0 19 | c2 0b 5c 66 5c 22 84 12 |eck) "..|..\f\"..|
|000012f0| 00 c5 c6 c7 0e 08 23 82 | 3e 00 0e 09 83 21 00 c5 |......#.|>....!..|
|00001300| c6 ca 0b 23 88 cb 82 3e | 00 0e 5c 66 47 89 11 cd |...#...>|..\fG...|
|00001310| 55 83 37 00 ce 0b 21 88 | c5 c6 cf 0b 23 82 3e 00 |U.7...!.|....#.>.|
|00001320| d0 d1 09 d2 09 0b 25 29 | 87 22 20 5b 6e 69 6c 20 |......%)|." [nil |
|00001330| 6e 75 6d 62 65 72 20 6e | 6e 64 6f 63 2d 70 6f 73 |number n|ndoc-pos|
|00001340| 73 69 62 6c 79 2d 63 68 | 61 6e 67 65 2d 62 75 66 |sibly-ch|ange-buf|
|00001350| 66 65 72 20 67 72 6f 75 | 70 20 73 65 72 76 65 72 |fer grou|p server|
|00001360| 20 6e 6e 68 65 61 64 65 | 72 2d 72 65 70 6f 72 74 | nnheade|r-report|
|00001370| 20 6e 6e 64 6f 63 20 22 | 4e 6f 20 73 75 63 68 20 | nndoc "|No such |
|00001380| 66 69 6c 65 20 6f 72 20 | 62 75 66 66 65 72 3a 20 |file or |buffer: |
|00001390| 25 73 22 20 6e 6e 64 6f | 63 2d 61 64 64 72 65 73 |%s" nndo|c-addres|
|000013a0| 73 20 64 6f 6e 74 2d 63 | 68 65 63 6b 20 22 53 65 |s dont-c|heck "Se|
|000013b0| 6c 65 63 74 65 64 20 67 | 72 6f 75 70 20 25 73 22 |lected g|roup %s"|
|000013c0| 20 74 20 6e 6e 64 6f 63 | 2d 64 69 73 73 65 63 74 | t nndoc|-dissect|
|000013d0| 69 6f 6e 2d 61 6c 69 73 | 74 20 30 20 6e 6e 64 6f |ion-alis|t 0 nndo|
|000013e0| 63 2d 63 6c 6f 73 65 2d | 67 72 6f 75 70 20 22 4e |c-close-|group "N|
|000013f0| 6f 20 61 72 74 69 63 6c | 65 73 20 69 6e 20 67 72 |o articl|es in gr|
|00001400| 6f 75 70 20 25 73 22 20 | 6e 6e 68 65 61 64 65 72 |oup %s" |nnheader|
|00001410| 2d 69 6e 73 65 72 74 20 | 22 32 31 31 20 25 64 20 |-insert |"211 %d |
|00001420| 25 64 20 25 64 20 25 73 | 5c 6e 22 20 31 5d 20 36 |%d %d %s|\n" 1] 6|
|00001430| 20 28 23 24 20 2e 20 34 | 37 34 38 29 5d 29 0a 28 | (#$ . 4|748)]).(|
|00001440| 6e 6e 6f 6f 2d 72 65 67 | 69 73 74 65 72 2d 66 75 |nnoo-reg|ister-fu|
|00001450| 6e 63 74 69 6f 6e 20 28 | 71 75 6f 74 65 20 6e 6e |nction (|quote nn|
|00001460| 64 6f 63 2d 72 65 71 75 | 65 73 74 2d 67 72 6f 75 |doc-requ|est-grou|
|00001470| 70 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6e |p)).(def|alias 'n|
|00001480| 6e 64 6f 63 2d 72 65 71 | 75 65 73 74 2d 74 79 70 |ndoc-req|uest-typ|
|00001490| 65 20 23 5b 28 67 72 6f | 75 70 20 26 6f 70 74 69 |e #[(gro|up &opti|
|000014a0| 6f 6e 61 6c 20 61 72 74 | 69 63 6c 65 29 20 22 08 |onal art|icle) ".|
|000014b0| 84 06 00 c1 87 5c 6e 83 | 5c 66 00 5c 6e 87 c1 87 |.....\n.|\f.\n...|
|000014c0| 22 20 5b 61 72 74 69 63 | 6c 65 20 75 6e 6b 6e 6f |" [artic|le unkno|
|000014d0| 77 6e 20 6e 6e 64 6f 63 | 2d 70 6f 73 74 2d 74 79 |wn nndoc|-post-ty|
|000014e0| 70 65 5d 20 31 5d 29 0a | 28 6e 6e 6f 6f 2d 72 65 |pe] 1]).|(nnoo-re|
|000014f0| 67 69 73 74 65 72 2d 66 | 75 6e 63 74 69 6f 6e 20 |gister-f|unction |
|00001500| 28 71 75 6f 74 65 20 6e | 6e 64 6f 63 2d 72 65 71 |(quote n|ndoc-req|
|00001510| 75 65 73 74 2d 74 79 70 | 65 29 29 0a 28 64 65 66 |uest-typ|e)).(def|
|00001520| 61 6c 69 61 73 20 27 6e | 6e 64 6f 63 2d 63 6c 6f |alias 'n|ndoc-clo|
|00001530| 73 65 2d 67 72 6f 75 70 | 20 23 5b 28 67 72 6f 75 |se-group| #[(grou|
|00001540| 70 20 26 6f 70 74 69 6f | 6e 61 6c 20 73 65 72 76 |p &optio|nal serv|
|00001550| 65 72 29 20 22 c0 09 5c | 6e 5c 22 88 0b 83 13 00 |er) "..\|n\".....|
|00001560| c4 0b 21 83 13 00 c5 0b | 21 88 c6 c7 09 0e 08 5c |..!.....|!......\|
|00001570| 22 0e 08 5c 22 16 08 c9 | 13 ca cb 5c 6e 5c 22 88 |"..\"...|...\n\".|
|00001580| c9 16 5c 66 cd 87 22 20 | 5b 6e 6e 64 6f 63 2d 70 |..\f.." |[nndoc-p|
|00001590| 6f 73 73 69 62 6c 79 2d | 63 68 61 6e 67 65 2d 62 |ossibly-|change-b|
|000015a0| 75 66 66 65 72 20 67 72 | 6f 75 70 20 73 65 72 76 |uffer gr|oup serv|
|000015b0| 65 72 20 6e 6e 64 6f 63 | 2d 63 75 72 72 65 6e 74 |er nndoc|-current|
|000015c0| 2d 62 75 66 66 65 72 20 | 62 75 66 66 65 72 2d 6e |-buffer |buffer-n|
|000015d0| 61 6d 65 20 6b 69 6c 6c | 2d 62 75 66 66 65 72 20 |ame kill|-buffer |
|000015e0| 64 65 6c 71 20 61 73 73 | 6f 63 20 6e 6e 64 6f 63 |delq ass|oc nndoc|
|000015f0| 2d 67 72 6f 75 70 2d 61 | 6c 69 73 74 20 6e 69 6c |-group-a|list nil|
|00001600| 20 6e 6e 6f 6f 2d 63 6c | 6f 73 65 2d 73 65 72 76 | nnoo-cl|ose-serv|
|00001610| 65 72 20 6e 6e 64 6f 63 | 20 6e 6e 64 6f 63 2d 64 |er nndoc| nndoc-d|
|00001620| 69 73 73 65 63 74 69 6f | 6e 2d 61 6c 69 73 74 20 |issectio|n-alist |
|00001630| 74 5d 20 34 5d 29 0a 28 | 6e 6e 6f 6f 2d 72 65 67 |t] 4]).(|nnoo-reg|
|00001640| 69 73 74 65 72 2d 66 75 | 6e 63 74 69 6f 6e 20 28 |ister-fu|nction (|
|00001650| 71 75 6f 74 65 20 6e 6e | 64 6f 63 2d 63 6c 6f 73 |quote nn|doc-clos|
|00001660| 65 2d 67 72 6f 75 70 29 | 29 0a 28 64 65 66 61 6c |e-group)|).(defal|
|00001670| 69 61 73 20 27 6e 6e 64 | 6f 63 2d 72 65 71 75 65 |ias 'nnd|oc-reque|
|00001680| 73 74 2d 6c 69 73 74 20 | 23 5b 28 26 6f 70 74 69 |st-list |#[(&opti|
|00001690| 6f 6e 61 6c 20 73 65 72 | 76 65 72 29 20 22 c0 87 |onal ser|ver) "..|
|000016a0| 22 20 5b 6e 69 6c 5d 20 | 31 5d 29 0a 28 6e 6e 6f |" [nil] |1]).(nno|
|000016b0| 6f 2d 72 65 67 69 73 74 | 65 72 2d 66 75 6e 63 74 |o-regist|er-funct|
|000016c0| 69 6f 6e 20 28 71 75 6f | 74 65 20 6e 6e 64 6f 63 |ion (quo|te nndoc|
|000016d0| 2d 72 65 71 75 65 73 74 | 2d 6c 69 73 74 29 29 0a |-request|-list)).|
|000016e0| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 6e 64 6f 63 |(defalia|s 'nndoc|
|000016f0| 2d 72 65 71 75 65 73 74 | 2d 6e 65 77 67 72 6f 75 |-request|-newgrou|
|00001700| 70 73 20 23 5b 28 64 61 | 74 65 20 26 6f 70 74 69 |ps #[(da|te &opti|
|00001710| 6f 6e 61 6c 20 73 65 72 | 76 65 72 29 20 22 c0 87 |onal ser|ver) "..|
|00001720| 22 20 5b 6e 69 6c 5d 20 | 31 5d 29 0a 28 6e 6e 6f |" [nil] |1]).(nno|
|00001730| 6f 2d 72 65 67 69 73 74 | 65 72 2d 66 75 6e 63 74 |o-regist|er-funct|
|00001740| 69 6f 6e 20 28 71 75 6f | 74 65 20 6e 6e 64 6f 63 |ion (quo|te nndoc|
|00001750| 2d 72 65 71 75 65 73 74 | 2d 6e 65 77 67 72 6f 75 |-request|-newgrou|
|00001760| 70 73 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ps)).(de|falias '|
|00001770| 6e 6e 64 6f 63 2d 72 65 | 71 75 65 73 74 2d 6c 69 |nndoc-re|quest-li|
|00001780| 73 74 2d 6e 65 77 73 67 | 72 6f 75 70 73 20 23 5b |st-newsg|roups #[|
|00001790| 28 26 6f 70 74 69 6f 6e | 61 6c 20 73 65 72 76 65 |(&option|al serve|
|000017a0| 72 29 20 22 c0 87 22 20 | 5b 6e 69 6c 5d 20 31 5d |r) ".." |[nil] 1]|
|000017b0| 29 0a 28 6e 6e 6f 6f 2d | 72 65 67 69 73 74 65 72 |).(nnoo-|register|
|000017c0| 2d 66 75 6e 63 74 69 6f | 6e 20 28 71 75 6f 74 65 |-functio|n (quote|
|000017d0| 20 6e 6e 64 6f 63 2d 72 | 65 71 75 65 73 74 2d 6c | nndoc-r|equest-l|
|000017e0| 69 73 74 2d 6e 65 77 73 | 67 72 6f 75 70 73 29 29 |ist-news|groups))|
|000017f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 64 6f |.(defali|as 'nndo|
|00001800| 63 2d 70 6f 73 73 69 62 | 6c 79 2d 63 68 61 6e 67 |c-possib|ly-chang|
|00001810| 65 2d 62 75 66 66 65 72 | 20 23 5b 28 67 72 6f 75 |e-buffer| #[(grou|
|00001820| 70 20 73 6f 75 72 63 65 | 29 20 22 c0 19 5c 6e 83 |p source|) "..\n.|
|00001830| 19 00 c3 5c 6e 21 83 19 | 00 5c 6e c4 0d 0e 06 5c |...\n!..|.\n....\|
|00001840| 22 41 89 11 3d 84 75 00 | 09 83 5c 22 00 09 12 82 |"A..=.u.|..\"....|
|00001850| 75 00 c7 0e 08 21 83 30 | 00 c3 0e 08 21 84 44 00 |u....!.0|....!.D.|
|00001860| 0e 08 3b 83 75 00 c9 0e | 08 21 83 75 00 ca 0e 08 |..;.u...|.!.u....|
|00001870| 21 84 75 00 0d cb cc 0d | cd 51 21 89 12 42 0e 06 |!.u.....|.Q!..B..|
|00001880| 42 16 06 c0 16 0e 8a 5c | 6e 71 88 cf 70 21 88 d0 |B......\|nq..p!..|
|00001890| 20 88 0e 08 3b 83 6f 00 | d1 0e 08 21 88 82 74 00 | ...;.o.|...!..t.|
|000018a0| d2 0e 08 21 88 29 5c 6e | 83 89 00 0e 0e 84 89 00 |...!.)\n|........|
|000018b0| 8a 5c 6e 71 88 d3 20 88 | d4 20 88 29 5c 6e 84 90 |.\nq.. .|. .)\n..|
|000018c0| 00 d5 20 88 5c 6e 29 87 | 22 20 5b 6e 69 6c 20 62 |.. .\n).|" [nil b|
|000018d0| 75 66 20 6e 6e 64 6f 63 | 2d 63 75 72 72 65 6e 74 |uf nndoc|-current|
|000018e0| 2d 62 75 66 66 65 72 20 | 62 75 66 66 65 72 2d 6e |-buffer |buffer-n|
|000018f0| 61 6d 65 20 61 73 73 6f | 63 20 67 72 6f 75 70 20 |ame asso|c group |
|00001900| 6e 6e 64 6f 63 2d 67 72 | 6f 75 70 2d 61 6c 69 73 |nndoc-gr|oup-alis|
|00001910| 74 20 62 75 66 66 65 72 | 70 20 6e 6e 64 6f 63 2d |t buffer|p nndoc-|
|00001920| 61 64 64 72 65 73 73 20 | 66 69 6c 65 2d 65 78 69 |address |file-exi|
|00001930| 73 74 73 2d 70 20 66 69 | 6c 65 2d 64 69 72 65 63 |sts-p fi|le-direc|
|00001940| 74 6f 72 79 2d 70 20 67 | 65 74 2d 62 75 66 66 65 |tory-p g|et-buffe|
|00001950| 72 2d 63 72 65 61 74 65 | 20 22 20 2a 6e 6e 64 6f |r-create| " *nndo|
|00001960| 63 20 22 20 22 2a 22 20 | 6e 6e 64 6f 63 2d 64 69 |c " "*" |nndoc-di|
|00001970| 73 73 65 63 74 69 6f 6e | 2d 61 6c 69 73 74 20 62 |ssection|-alist b|
|00001980| 75 66 66 65 72 2d 64 69 | 73 61 62 6c 65 2d 75 6e |uffer-di|sable-un|
|00001990| 64 6f 20 65 72 61 73 65 | 2d 62 75 66 66 65 72 20 |do erase|-buffer |
|000019a0| 69 6e 73 65 72 74 2d 66 | 69 6c 65 2d 63 6f 6e 74 |insert-f|ile-cont|
|000019b0| 65 6e 74 73 20 69 6e 73 | 65 72 74 2d 62 75 66 66 |ents ins|ert-buff|
|000019c0| 65 72 2d 73 75 62 73 74 | 72 69 6e 67 20 6e 6e 64 |er-subst|ring nnd|
|000019d0| 6f 63 2d 73 65 74 2d 64 | 65 6c 69 6d 73 20 6e 6e |oc-set-d|elims nn|
|000019e0| 64 6f 63 2d 64 69 73 73 | 65 63 74 2d 62 75 66 66 |doc-diss|ect-buff|
|000019f0| 65 72 20 6e 6e 64 6f 63 | 2d 63 6c 6f 73 65 2d 73 |er nndoc|-close-s|
|00001a00| 65 72 76 65 72 5d 20 35 | 5d 29 0a 23 40 34 39 20 |erver] 5|]).#@49 |
|00001a10| 47 75 65 73 73 20 77 68 | 61 74 20 64 69 67 65 73 |Guess wh|at diges|
|00001a20| 74 20 74 79 70 65 20 74 | 68 65 20 63 75 72 72 65 |t type t|he curre|
|00001a30| 6e 74 20 64 6f 63 75 6d | 65 6e 74 20 69 73 2e 1f |nt docum|ent is..|
|00001a40| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 64 6f |.(defali|as 'nndo|
|00001a50| 63 2d 67 75 65 73 73 2d | 64 69 67 65 73 74 2d 74 |c-guess-|digest-t|
|00001a60| 79 70 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 89 89 1a |ype #[ni|l ".....|
|00001a70| 1b 1c 1d 65 62 88 c6 c7 | c8 50 c1 c0 23 83 43 00 |...eb...|.P..#.C.|
|00001a80| c9 94 83 43 00 ca c9 21 | 14 cb 5c 66 cc 51 13 cd |...C...!|..\f.Q..|
|00001a90| 0e 0e 9e 89 12 cf d0 42 | d1 d2 42 d3 0b 42 d4 d5 |.......B|..B..B..|
|00001aa0| 42 d6 cb 5c 66 d7 51 42 | af 05 a1 88 cd 82 64 00 |B..\f.QB|......d.|
|00001ab0| c6 d8 d9 da db 5c 22 dc | 51 c1 c0 23 83 63 00 c6 |.....\".|Q..#.c..|
|00001ac0| dc d9 dd db 5c 22 dc 51 | c1 c0 23 83 63 00 de 82 |....\".Q|..#.c...|
|00001ad0| 64 00 df 2c 87 22 20 5b | 74 20 6e 69 6c 20 65 6e |d..,." [|t nil en|
|00001ae0| 74 72 79 20 62 2d 64 65 | 6c 69 6d 69 74 65 72 20 |try b-de|limiter |
|00001af0| 62 6f 75 6e 64 61 72 79 | 2d 69 64 20 63 61 73 65 |boundary|-id case|
|00001b00| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 72 65 2d |-fold-se|arch re-|
|00001b10| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00001b20| 5e 43 6f 6e 74 65 6e 74 | 2d 54 79 70 65 3a 20 2a |^Content|-Type: *|
|00001b30| 6d 75 6c 74 69 70 61 72 | 74 2f 64 69 67 65 73 74 |multipar|t/digest|
|00001b40| 3b 5b 20 09 5c 6e 5d 2a | 5b 20 09 5d 22 20 22 62 |;[ .\n]*|[ .]" "b|
|00001b50| 6f 75 6e 64 61 72 79 3d | 5c 22 5c 5c 28 5b 5e 5c |oundary=|\"\\([^\|
|00001b60| 22 5c 6e 5d 2a 5b 5e 5c | 22 20 09 5c 6e 5d 5c 5c |"\n]*[^\|" .\n]\\|
|00001b70| 29 5c 22 22 20 31 20 6d | 61 74 63 68 2d 73 74 72 |)\"" 1 m|atch-str|
|00001b80| 69 6e 67 20 22 5c 6e 2d | 2d 22 20 22 5b 5c 6e 20 |ing "\n-|-" "[\n |
|00001b90| 09 5d 2b 22 20 6d 69 6d | 65 2d 64 69 67 65 73 74 |.]+" mim|e-digest|
|00001ba0| 20 6e 6e 64 6f 63 2d 74 | 79 70 65 2d 61 6c 69 73 | nndoc-t|ype-alis|
|00001bb0| 74 20 68 65 61 64 2d 65 | 6e 64 20 22 5e 20 3f 24 |t head-e|nd "^ ?$|
|00001bc0| 22 20 62 6f 64 79 2d 62 | 65 67 69 6e 20 22 5e 20 |" body-b|egin "^ |
|00001bd0| 3f 5c 6e 22 20 61 72 74 | 69 63 6c 65 2d 62 65 67 |?\n" art|icle-beg|
|00001be0| 69 6e 20 62 6f 64 79 2d | 65 6e 64 2d 66 75 6e 63 |in body-|end-func|
|00001bf0| 74 69 6f 6e 20 6e 6e 64 | 6f 63 2d 64 69 67 65 73 |tion nnd|oc-diges|
|00001c00| 74 2d 62 6f 64 79 2d 65 | 6e 64 20 66 69 6c 65 2d |t-body-e|nd file-|
|00001c10| 65 6e 64 20 22 2d 2d 5b | 20 09 5d 2a 24 22 20 22 |end "--[| .]*$" "|
|00001c20| 5e 22 20 6d 61 6b 65 2d | 73 74 72 69 6e 67 20 37 |^" make-|string 7|
|00001c30| 30 20 34 35 20 22 5c 6e | 5c 6e 22 20 33 30 20 73 |0 45 "\n|\n" 30 s|
|00001c40| 74 61 6e 64 61 72 64 2d | 64 69 67 65 73 74 20 73 |tandard-|digest s|
|00001c50| 6c 61 63 6b 2d 64 69 67 | 65 73 74 5d 20 31 30 20 |lack-dig|est] 10 |
|00001c60| 28 23 24 20 2e 20 36 36 | 37 32 29 5d 29 0a 23 40 |(#$ . 66|72)]).#@|
|00001c70| 35 32 20 47 75 65 73 73 | 20 77 68 61 74 20 64 6f |52 Guess| what do|
|00001c80| 63 75 6d 65 6e 74 20 74 | 79 70 65 20 69 73 20 69 |cument t|ype is i|
|00001c90| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |n the cu|rrent bu|
|00001ca0| 66 66 65 72 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ffer...(|defalias|
|00001cb0| 20 27 6e 6e 64 6f 63 2d | 67 75 65 73 73 2d 74 79 | 'nndoc-|guess-ty|
|00001cc0| 70 65 20 23 5b 6e 69 6c | 20 22 65 62 88 c0 09 21 |pe #[nil| "eb...!|
|00001cd0| 83 0b 00 c2 87 c0 c3 21 | 83 13 00 c4 87 c0 c5 21 |.......!|.......!|
|00001ce0| 83 1b 00 c6 87 c0 c7 21 | 83 23 00 c8 87 c9 ca cb |.......!|.#......|
|00001cf0| cc 23 83 2d 00 cd 87 8a | c9 ce cb cc 23 85 3c 00 |.#.-....|....#.<.|
|00001d00| c9 cf cb cc 23 3f 29 83 | 42 00 d0 87 cb 1e 11 c9 |....#?).|B.......|
|00001d10| d2 cb cc 23 29 83 50 00 | d3 87 d4 87 22 20 5b 6c |...#).P.|...." [l|
|00001d20| 6f 6f 6b 69 6e 67 2d 61 | 74 20 6d 65 73 73 61 67 |ooking-a|t messag|
|00001d30| 65 2d 75 6e 69 78 2d 6d | 61 69 6c 2d 64 65 6c 69 |e-unix-m|ail-deli|
|00001d40| 6d 69 74 65 72 20 6d 62 | 6f 78 20 22 01 01 01 01 |miter mb|ox "....|
|00001d50| 24 22 20 6d 6d 64 66 20 | 22 5e 50 61 74 68 3a 2e |$" mmdf |"^Path:.|
|00001d60| 2a 5c 6e 22 20 6e 65 77 | 73 20 22 23 21 20 2a 72 |*\n" new|s "#! *r|
|00001d70| 6e 65 77 73 22 20 72 6e | 65 77 73 20 72 65 2d 73 |news" rn|ews re-s|
|00001d80| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 1f |earch-fo|rward ".|
|00001d90| 5c 66 20 2a 5c 6e 22 20 | 6e 69 6c 20 74 20 62 61 |\f *\n" |nil t ba|
|00001da0| 62 79 6c 20 22 5e 2d 2b | 20 53 74 61 72 74 20 6f |byl "^-+| Start o|
|00001db0| 66 20 66 6f 72 77 61 72 | 64 65 64 20 6d 65 73 73 |f forwar|ded mess|
|00001dc0| 61 67 65 20 2d 2b 5c 6e | 2b 22 20 22 5e 53 75 62 |age -+\n|+" "^Sub|
|00001dd0| 6a 65 63 74 3a 2e 2a 64 | 69 67 65 73 74 22 20 66 |ject:.*d|igest" f|
|00001de0| 6f 72 77 61 72 64 20 63 | 61 73 65 2d 66 6f 6c 64 |orward c|ase-fold|
|00001df0| 2d 73 65 61 72 63 68 20 | 22 5e 09 5b 5e 61 2d 7a |-search |"^.[^a-z|
|00001e00| 5d 2b 20 28 5b 5e 61 2d | 7a 5d 2b 29 20 2d 2d 22 |]+ ([^a-|z]+) --"|
|00001e10| 20 63 6c 61 72 69 2d 62 | 72 69 65 66 73 20 64 69 | clari-b|riefs di|
|00001e20| 67 65 73 74 5d 20 34 20 | 28 23 24 20 2e 20 37 32 |gest] 4 |(#$ . 72|
|00001e30| 38 33 29 5d 29 0a 23 40 | 37 34 20 53 65 74 20 74 |83)]).#@|74 Set t|
|00001e40| 68 65 20 6e 6e 64 6f 63 | 20 64 65 6c 69 6d 69 74 |he nndoc| delimit|
|00001e50| 65 72 20 76 61 72 69 61 | 62 6c 65 73 20 61 63 63 |er varia|bles acc|
|00001e60| 6f 72 64 69 6e 67 20 74 | 6f 20 74 68 65 20 74 79 |ording t|o the ty|
|00001e70| 70 65 20 6f 66 20 74 68 | 65 20 64 6f 63 75 6d 65 |pe of th|e docume|
|00001e80| 6e 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nt...(de|falias '|
|00001e90| 6e 6e 64 6f 63 2d 73 65 | 74 2d 64 65 6c 69 6d 73 |nndoc-se|t-delims|
|00001ea0| 20 23 5b 6e 69 6c 20 22 | c0 19 09 83 11 00 09 89 | #[nil "|........|
|00001eb0| 41 11 40 c2 4c 88 82 02 | 00 29 c2 1b c2 1c 0d 0e |A.@.L...|.)......|
|00001ec0| 06 9e 41 13 c4 0b 9e 89 | 14 83 2c 00 5c 66 41 20 |..A.....|..,.\fA |
|00001ed0| 89 15 82 17 00 0b 85 43 | 00 c7 c8 c9 0b 40 40 5c |.......C|.....@@\|
|00001ee0| 22 21 0b 89 41 13 40 41 | 4c 88 82 2c 00 2a 87 22 |"!..A.@A|L..,.*."|
|00001ef0| 20 5b 28 6e 6e 64 6f 63 | 2d 66 69 6c 65 2d 62 65 | [(nndoc|-file-be|
|00001f00| 67 69 6e 20 6e 6e 64 6f | 63 2d 66 69 72 73 74 2d |gin nndo|c-first-|
|00001f10| 61 72 74 69 63 6c 65 20 | 6e 6e 64 6f 63 2d 61 72 |article |nndoc-ar|
|00001f20| 74 69 63 6c 65 2d 65 6e | 64 20 6e 6e 64 6f 63 2d |ticle-en|d nndoc-|
|00001f30| 68 65 61 64 2d 62 65 67 | 69 6e 20 6e 6e 64 6f 63 |head-beg|in nndoc|
|00001f40| 2d 68 65 61 64 2d 65 6e | 64 20 6e 6e 64 6f 63 2d |-head-en|d nndoc-|
|00001f50| 66 69 6c 65 2d 65 6e 64 | 20 6e 6e 64 6f 63 2d 61 |file-end| nndoc-a|
|00001f60| 72 74 69 63 6c 65 2d 62 | 65 67 69 6e 20 6e 6e 64 |rticle-b|egin nnd|
|00001f70| 6f 63 2d 62 6f 64 79 2d | 62 65 67 69 6e 20 6e 6e |oc-body-|begin nn|
|00001f80| 64 6f 63 2d 62 6f 64 79 | 2d 65 6e 64 2d 66 75 6e |doc-body|-end-fun|
|00001f90| 63 74 69 6f 6e 20 6e 6e | 64 6f 63 2d 62 6f 64 79 |ction nn|doc-body|
|00001fa0| 2d 65 6e 64 20 6e 6e 64 | 6f 63 2d 70 72 65 70 61 |-end nnd|oc-prepa|
|00001fb0| 72 65 2d 62 6f 64 79 20 | 6e 6e 64 6f 63 2d 61 72 |re-body |nndoc-ar|
|00001fc0| 74 69 63 6c 65 2d 74 72 | 61 6e 73 66 6f 72 6d 20 |ticle-tr|ansform |
|00001fd0| 6e 6e 64 6f 63 2d 67 65 | 6e 65 72 61 74 65 2d 68 |nndoc-ge|nerate-h|
|00001fe0| 65 61 64 20 6e 6e 64 6f | 63 2d 62 6f 64 79 2d 62 |ead nndo|c-body-b|
|00001ff0| 65 67 69 6e 2d 66 75 6e | 63 74 69 6f 6e 20 6e 6e |egin-fun|ction nn|
|00002000| 64 6f 63 2d 68 65 61 64 | 2d 62 65 67 69 6e 2d 66 |doc-head|-begin-f|
|00002010| 75 6e 63 74 69 6f 6e 29 | 20 76 61 72 73 20 6e 69 |unction)| vars ni|
|00002020| 6c 20 64 65 66 73 20 67 | 75 65 73 73 20 6e 6e 64 |l defs g|uess nnd|
|00002030| 6f 63 2d 61 72 74 69 63 | 6c 65 2d 74 79 70 65 20 |oc-artic|le-type |
|00002040| 6e 6e 64 6f 63 2d 74 79 | 70 65 2d 61 6c 69 73 74 |nndoc-ty|pe-alist|
|00002050| 20 69 6e 74 65 72 6e 20 | 66 6f 72 6d 61 74 20 22 | intern |format "|
|00002060| 6e 6e 64 6f 63 2d 25 73 | 22 5d 20 35 20 28 23 24 |nndoc-%s|"] 5 (#$|
|00002070| 20 2e 20 37 37 33 39 29 | 5d 29 0a 28 64 65 66 61 | . 7739)|]).(defa|
|00002080| 6c 69 61 73 20 27 6e 6e | 64 6f 63 2d 73 65 61 72 |lias 'nn|doc-sear|
|00002090| 63 68 20 23 5b 28 72 65 | 67 65 78 70 29 20 22 c0 |ch #[(re|gexp) ".|
|000020a0| 09 c2 c3 23 c4 79 88 87 | 22 20 5b 72 65 2d 73 65 |...#.y..|" [re-se|
|000020b0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 72 65 67 |arch-for|ward reg|
|000020c0| 65 78 70 20 6e 69 6c 20 | 74 20 30 5d 20 34 5d 29 |exp nil |t 0] 4])|
|000020d0| 0a 23 40 37 30 20 47 6f | 20 74 68 72 6f 75 67 68 |.#@70 Go| through|
|000020e0| 20 74 68 65 20 64 6f 63 | 75 6d 65 6e 74 20 61 6e | the doc|ument an|
|000020f0| 64 20 70 61 72 74 69 74 | 69 6f 6e 20 69 74 20 69 |d partit|ion it i|
|00002100| 6e 74 6f 20 68 65 61 64 | 73 2f 62 6f 64 69 65 73 |nto head|s/bodies|
|00002110| 2f 61 72 74 69 63 6c 65 | 73 2e 1f 0a 28 64 65 66 |/article|s...(def|
|00002120| 61 6c 69 61 73 20 27 6e | 6e 64 6f 63 2d 64 69 73 |alias 'n|ndoc-dis|
|00002130| 73 65 63 74 2d 62 75 66 | 66 65 72 20 23 5b 6e 69 |sect-buf|fer #[ni|
|00002140| 6c 20 22 c0 c1 c2 89 89 | 89 1b 1c 1d 1e 06 1e 07 |l ".....|........|
|00002150| 1e 08 c2 16 09 8a 0e 5c | 6e 71 88 65 62 88 0e 0b |.......\|nq.eb...|
|00002160| 83 24 00 cc 0e 0b 21 88 | 0e 07 83 35 00 0e 0d 83 |.$....!.|...5....|
|00002170| 35 00 cc 0e 0d 21 82 39 | 00 cc 0e 0e 21 85 d9 00 |5....!.9|....!...|
|00002180| c2 16 07 0e 0f 83 4b 00 | 0e 0f 20 88 82 55 00 0e |......K.|.. ..U..|
|00002190| 10 83 55 00 cc 0e 10 21 | 88 0e 11 83 67 00 d2 0e |..U....!|....g...|
|000021a0| 11 21 83 67 00 64 62 88 | 82 24 00 60 16 06 cc 0e |.!.g.db.|.$.`....|
|000021b0| 13 86 71 00 d4 21 88 60 | 15 0e 15 83 81 00 0e 15 |..q..!.`|........|
|000021c0| 20 88 82 8a 00 cc 0e 16 | 86 88 00 d7 21 88 60 14 | .......|....!.`.|
|000021d0| 0e 18 83 97 00 0e 18 20 | 84 be 00 0e 19 83 a3 00 |....... |........|
|000021e0| cc 0e 19 21 84 be 00 cc | 0e 0e 21 84 be 00 64 62 |...!....|..!...db|
|000021f0| 88 0e 11 83 be 00 da 0e | 11 c2 c1 23 83 be 00 c0 |........|...#....|
|00002200| 79 88 60 13 0e 08 54 89 | 16 08 0e 06 0d 5c 66 0b |y.`...T.|.....\f.|
|00002210| db 5c 66 0b 5c 22 af 06 | 0e 09 42 16 09 82 24 00 |.\f.\"..|..B...$.|
|00002220| 2e 07 87 22 20 5b 30 20 | 74 20 6e 69 6c 20 62 6f |..." [0 |t nil bo|
|00002230| 64 79 2d 65 6e 64 20 62 | 6f 64 79 2d 62 65 67 69 |dy-end b|ody-begi|
|00002240| 6e 20 68 65 61 64 2d 65 | 6e 64 20 68 65 61 64 2d |n head-e|nd head-|
|00002250| 62 65 67 69 6e 20 66 69 | 72 73 74 20 69 20 6e 6e |begin fi|rst i nn|
|00002260| 64 6f 63 2d 64 69 73 73 | 65 63 74 69 6f 6e 2d 61 |doc-diss|ection-a|
|00002270| 6c 69 73 74 20 6e 6e 64 | 6f 63 2d 63 75 72 72 65 |list nnd|oc-curre|
|00002280| 6e 74 2d 62 75 66 66 65 | 72 20 6e 6e 64 6f 63 2d |nt-buffe|r nndoc-|
|00002290| 66 69 6c 65 2d 62 65 67 | 69 6e 20 6e 6e 64 6f 63 |file-beg|in nndoc|
|000022a0| 2d 73 65 61 72 63 68 20 | 6e 6e 64 6f 63 2d 66 69 |-search |nndoc-fi|
|000022b0| 72 73 74 2d 61 72 74 69 | 63 6c 65 20 6e 6e 64 6f |rst-arti|cle nndo|
|000022c0| 63 2d 61 72 74 69 63 6c | 65 2d 62 65 67 69 6e 20 |c-articl|e-begin |
|000022d0| 6e 6e 64 6f 63 2d 68 65 | 61 64 2d 62 65 67 69 6e |nndoc-he|ad-begin|
|000022e0| 2d 66 75 6e 63 74 69 6f | 6e 20 6e 6e 64 6f 63 2d |-functio|n nndoc-|
|000022f0| 68 65 61 64 2d 62 65 67 | 69 6e 20 6e 6e 64 6f 63 |head-beg|in nndoc|
|00002300| 2d 66 69 6c 65 2d 65 6e | 64 20 6c 6f 6f 6b 69 6e |-file-en|d lookin|
|00002310| 67 2d 61 74 20 6e 6e 64 | 6f 63 2d 68 65 61 64 2d |g-at nnd|oc-head-|
|00002320| 65 6e 64 20 22 5e 24 22 | 20 6e 6e 64 6f 63 2d 62 |end "^$"| nndoc-b|
|00002330| 6f 64 79 2d 62 65 67 69 | 6e 2d 66 75 6e 63 74 69 |ody-begi|n-functi|
|00002340| 6f 6e 20 6e 6e 64 6f 63 | 2d 62 6f 64 79 2d 62 65 |on nndoc|-body-be|
|00002350| 67 69 6e 20 22 5e 5c 6e | 22 20 6e 6e 64 6f 63 2d |gin "^\n|" nndoc-|
|00002360| 62 6f 64 79 2d 65 6e 64 | 2d 66 75 6e 63 74 69 6f |body-end|-functio|
|00002370| 6e 20 6e 6e 64 6f 63 2d | 62 6f 64 79 2d 65 6e 64 |n nndoc-|body-end|
|00002380| 20 72 65 2d 73 65 61 72 | 63 68 2d 62 61 63 6b 77 | re-sear|ch-backw|
|00002390| 61 72 64 20 63 6f 75 6e | 74 2d 6c 69 6e 65 73 5d |ard coun|t-lines]|
|000023a0| 20 38 20 28 23 24 20 2e | 20 38 34 30 36 29 5d 29 | 8 (#$ .| 8406)])|
|000023b0| 0a 23 40 34 33 20 55 6e | 71 75 6f 74 65 20 71 75 |.#@43 Un|quote qu|
|000023c0| 6f 74 65 64 20 6e 6f 6e | 2d 73 65 70 61 72 61 74 |oted non|-separat|
|000023d0| 6f 72 73 20 69 6e 20 64 | 69 67 65 73 74 73 2e 1f |ors in d|igests..|
|000023e0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 64 6f |.(defali|as 'nndo|
|000023f0| 63 2d 75 6e 71 75 6f 74 | 65 2d 64 61 73 68 65 73 |c-unquot|e-dashes|
|00002400| 20 23 5b 6e 69 6c 20 22 | c0 c1 c2 c3 23 85 11 00 | #[nil "|....#...|
|00002410| c4 c5 c3 89 23 88 82 00 | 00 87 22 20 5b 72 65 2d |....#...|.." [re-|
|00002420| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 22 |search-f|orward "|
|00002430| 5e 2d 20 2d 22 20 6e 69 | 6c 20 74 20 72 65 70 6c |^- -" ni|l t repl|
|00002440| 61 63 65 2d 6d 61 74 63 | 68 20 22 2d 22 5d 20 34 |ace-matc|h "-"] 4|
|00002450| 20 28 23 24 20 2e 20 39 | 31 34 32 29 5d 29 0a 28 | (#$ . 9|142)]).(|
|00002460| 64 65 66 61 6c 69 61 73 | 20 27 6e 6e 64 6f 63 2d |defalias| 'nndoc-|
|00002470| 64 69 67 65 73 74 2d 62 | 6f 64 79 2d 65 6e 64 20 |digest-b|ody-end |
|00002480| 23 5b 6e 69 6c 20 22 c0 | 09 c2 c3 23 85 0b 00 c4 |#[nil ".|...#....|
|00002490| 94 62 87 22 20 5b 72 65 | 2d 73 65 61 72 63 68 2d |.b." [re|-search-|
|000024a0| 66 6f 72 77 61 72 64 20 | 6e 6e 64 6f 63 2d 61 72 |forward |nndoc-ar|
|000024b0| 74 69 63 6c 65 2d 62 65 | 67 69 6e 20 6e 69 6c 20 |ticle-be|gin nil |
|000024c0| 74 20 30 5d 20 34 5d 29 | 0a 28 64 65 66 61 6c 69 |t 0] 4])|.(defali|
|000024d0| 61 73 20 27 6e 6e 64 6f | 63 2d 6d 62 6f 78 2d 62 |as 'nndo|c-mbox-b|
|000024e0| 6f 64 79 2d 65 6e 64 20 | 23 5b 6e 69 6c 20 22 60 |ody-end |#[nil "`|
|000024f0| c0 89 19 1a 1b 8a c4 0d | c0 c6 23 85 4f 00 60 89 |........|..#.O.`.|
|00002500| 11 85 4f 00 c7 c8 0b c6 | 23 85 4f 00 c4 c9 09 c6 |..O.....|#.O.....|
|00002510| 23 85 4f 00 ca cb cc 21 | 21 89 12 85 4f 00 c7 c8 |#.O....!|!...O...|
|00002520| 0b c6 23 85 4f 00 60 5c | 6e 5c 5c 89 12 64 55 86 |..#.O.`\|n\\..dU.|
|00002530| 4f 00 5c 6e 64 57 85 4f | 00 5c 6e 62 85 4f 00 cd |O.\ndW.O|.\nb.O..|
|00002540| 0d 21 29 85 55 00 5c 6e | 62 2b 87 22 20 5b 6e 69 |.!).U.\n|b+." [ni|
|00002550| 6c 20 65 6e 64 20 6c 65 | 6e 20 62 65 67 20 72 65 |l end le|n beg re|
|00002560| 2d 73 65 61 72 63 68 2d | 62 61 63 6b 77 61 72 64 |-search-|backward|
|00002570| 20 6e 6e 64 6f 63 2d 61 | 72 74 69 63 6c 65 2d 62 | nndoc-a|rticle-b|
|00002580| 65 67 69 6e 20 74 20 73 | 65 61 72 63 68 2d 66 6f |egin t s|earch-fo|
|00002590| 72 77 61 72 64 20 22 5c | 6e 5c 6e 22 20 22 5e 43 |rward "\|n\n" "^C|
|000025a0| 6f 6e 74 65 6e 74 2d 4c | 65 6e 67 74 68 3a 5b 20 |ontent-L|ength:[ |
|000025b0| 09 5d 2a 5c 5c 28 5b 30 | 2d 39 5d 2b 5c 5c 29 20 |.]*\\([0|-9]+\\) |
|000025c0| 2a 24 22 20 73 74 72 69 | 6e 67 2d 74 6f 2d 69 6e |*$" stri|ng-to-in|
|000025d0| 74 20 6d 61 74 63 68 2d | 73 74 72 69 6e 67 20 31 |t match-|string 1|
|000025e0| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 5d 20 34 5d 29 | looking|-at] 4])|
|000025f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 64 6f |.(defali|as 'nndo|
|00002600| 63 2d 72 6e 65 77 73 2d | 62 6f 64 79 2d 65 6e 64 |c-rnews-|body-end|
|00002610| 20 23 5b 6e 69 6c 20 22 | c0 09 c2 c3 23 85 15 00 | #[nil "|....#...|
|00002620| c4 79 85 15 00 60 c5 c6 | c4 21 21 5c 5c 62 87 22 |.y...`..|.!!\\b."|
|00002630| 20 5b 72 65 2d 73 65 61 | 72 63 68 2d 62 61 63 6b | [re-sea|rch-back|
|00002640| 77 61 72 64 20 6e 6e 64 | 6f 63 2d 61 72 74 69 63 |ward nnd|oc-artic|
|00002650| 6c 65 2d 62 65 67 69 6e | 20 6e 69 6c 20 74 20 31 |le-begin| nil t 1|
|00002660| 20 73 74 72 69 6e 67 2d | 74 6f 2d 69 6e 74 20 6d | string-|to-int m|
|00002670| 61 74 63 68 2d 73 74 72 | 69 6e 67 5d 20 34 5d 29 |atch-str|ing] 4])|
|00002680| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6e 6e 64 6f |.(defali|as 'nndo|
|00002690| 63 2d 74 72 61 6e 73 66 | 6f 72 6d 2d 63 6c 61 72 |c-transf|orm-clar|
|000026a0| 69 2d 62 72 69 65 66 73 | 20 23 5b 28 61 72 74 69 |i-briefs| #[(arti|
|000026b0| 63 6c 65 29 20 22 65 62 | 88 c0 c1 21 83 0f 00 c2 |cle) "eb|...!....|
|000026c0| c3 c4 89 23 88 c5 0e 06 | 21 87 22 20 5b 6c 6f 6f |...#....|!." [loo|
|000026d0| 6b 69 6e 67 2d 61 74 20 | 22 20 2a 5c 5c 2a 5c 5c |king-at |" *\\*\\|
|000026e0| 28 2e 2a 5c 5c 29 5c 6e | 22 20 72 65 70 6c 61 63 |(.*\\)\n|" replac|
|000026f0| 65 2d 6d 61 74 63 68 20 | 22 22 20 74 20 6e 6e 64 |e-match |"" t nnd|
|00002700| 6f 63 2d 67 65 6e 65 72 | 61 74 65 2d 63 6c 61 72 |oc-gener|ate-clar|
|00002710| 69 2d 62 72 69 65 66 73 | 2d 68 65 61 64 20 61 72 |i-briefs|-head ar|
|00002720| 74 69 63 6c 65 5d 20 34 | 5d 29 0a 28 64 65 66 61 |ticle] 4|]).(defa|
|00002730| 6c 69 61 73 20 27 6e 6e | 64 6f 63 2d 67 65 6e 65 |lias 'nn|doc-gene|
|00002740| 72 61 74 65 2d 63 6c 61 | 72 69 2d 62 72 69 65 66 |rate-cla|ri-brief|
|00002750| 73 2d 68 65 61 64 20 23 | 5b 28 61 72 74 69 63 6c |s-head #|[(articl|
|00002760| 65 29 20 22 08 09 9e 41 | c2 89 1b 1c 1d 8a 0e 06 |e) "...A|........|
|00002770| 71 88 8c 0d 40 c7 0d 38 | 7d 88 65 62 88 c8 c9 21 |q...@..8|}.eb...!|
|00002780| 83 30 00 ca cb 21 14 cc | cd 5c 66 5c 22 83 30 00 |.0...!..|.\f\".0.|
|00002790| 5c 66 ce 89 94 4f 14 c2 | 1e 0f d0 d1 c2 d2 23 29 |\f...O..|......#)|
|000027a0| 83 40 00 ca cb 21 13 2a | d3 d4 0b 86 48 00 d5 d6 |.@...!.*|....H...|
|000027b0| d7 5c 66 86 4f 00 d8 d9 | b1 07 2b 87 22 20 5b 61 |.\f.O...|..+." [a|
|000027c0| 72 74 69 63 6c 65 20 6e | 6e 64 6f 63 2d 64 69 73 |rticle n|ndoc-dis|
|000027d0| 73 65 63 74 69 6f 6e 2d | 61 6c 69 73 74 20 6e 69 |section-|alist ni|
|000027e0| 6c 20 66 72 6f 6d 20 73 | 75 62 6a 65 63 74 20 65 |l from s|ubject e|
|000027f0| 6e 74 72 79 20 6e 6e 64 | 6f 63 2d 63 75 72 72 65 |ntry nnd|oc-curre|
|00002800| 6e 74 2d 62 75 66 66 65 | 72 20 33 20 6c 6f 6f 6b |nt-buffe|r 3 look|
|00002810| 69 6e 67 2d 61 74 20 22 | 20 2a 5c 5c 2a 5c 5c 28 |ing-at "| *\\*\\(|
|00002820| 2e 2a 5c 5c 29 24 22 20 | 6d 61 74 63 68 2d 73 74 |.*\\)$" |match-st|
|00002830| 72 69 6e 67 20 31 20 73 | 74 72 69 6e 67 2d 6d 61 |ring 1 s|tring-ma|
|00002840| 74 63 68 20 22 5b 20 09 | 5d 2b 24 22 20 30 20 63 |tch "[ .|]+$" 0 c|
|00002850| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00002860| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00002870| 64 20 22 5e 09 5c 5c 28 | 5b 5e 61 2d 7a 5d 2b 5c |d "^.\\(|[^a-z]+\|
|00002880| 5c 28 2c 5b 5e 28 5d 2b | 5c 5c 29 3f 20 28 5b 5e |\(,[^(]+|\\)? ([^|
|00002890| 61 2d 7a 5d 2b 29 5c 5c | 29 20 2d 2d 22 20 74 20 |a-z]+)\\|) --" t |
|000028a0| 22 46 72 6f 6d 3a 20 22 | 20 22 63 6c 61 72 69 40 |"From: "| "clari@|
|000028b0| 63 6c 61 72 69 2e 6e 65 | 74 20 28 22 20 22 75 6e |clari.ne|t (" "un|
|000028c0| 6b 6e 6f 77 6e 22 20 22 | 29 22 20 22 5c 6e 53 75 |known" "|)" "\nSu|
|000028d0| 62 6a 65 63 74 3a 20 22 | 20 22 28 6e 6f 20 73 75 |bject: "| "(no su|
|000028e0| 62 6a 65 63 74 29 22 20 | 22 5c 6e 22 5d 20 37 5d |bject)" |"\n"] 7]|
|000028f0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6e 6e 64 |).(defal|ias 'nnd|
|00002900| 6f 63 2d 62 61 62 79 6c | 2d 62 6f 64 79 2d 62 65 |oc-babyl|-body-be|
|00002910| 67 69 6e 20 23 5b 6e 69 | 6c 20 22 c0 c1 c2 c3 23 |gin #[ni|l "....#|
|00002920| 88 c4 c5 21 85 11 00 c0 | c1 c2 c3 23 87 22 20 5b |...!....|...#." [|
|00002930| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00002940| 64 20 22 5e 5c 6e 22 20 | 6e 69 6c 20 74 20 6c 6f |d "^\n" |nil t lo|
|00002950| 6f 6b 69 6e 67 2d 61 74 | 20 22 2a 2a 2a 20 45 4f |oking-at| "*** EO|
|00002960| 4f 48 20 2a 2a 2a 22 5d | 20 34 5d 29 0a 28 64 65 |OH ***"]| 4]).(de|
|00002970| 66 61 6c 69 61 73 20 27 | 6e 6e 64 6f 63 2d 62 61 |falias '|nndoc-ba|
|00002980| 62 79 6c 2d 68 65 61 64 | 2d 62 65 67 69 6e 20 23 |byl-head|-begin #|
|00002990| 5b 6e 69 6c 20 22 c0 c1 | c2 c3 23 85 12 00 c4 c5 |[nil "..|..#.....|
|000029a0| 21 83 11 00 c6 79 88 c3 | 87 22 20 5b 72 65 2d 73 |!....y..|." [re-s|
|000029b0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 22 5e |earch-fo|rward "^|
|000029c0| 5b 30 2d 39 5d 2e 2a 5c | 6e 22 20 6e 69 6c 20 74 |[0-9].*\|n" nil t|
|000029d0| 20 6c 6f 6f 6b 69 6e 67 | 2d 61 74 20 22 2a 2a 2a | looking|-at "***|
|000029e0| 20 45 4f 4f 48 20 2a 2a | 2a 22 20 31 5d 20 34 5d | EOOH **|*" 1] 4]|
|000029f0| 29 0a 28 70 72 6f 76 69 | 64 65 20 28 71 75 6f 74 |).(provi|de (quot|
|00002a00| 65 20 6e 6e 64 6f 63 29 | 29 0a                   |e nndoc)|).      |
+--------+-------------------------+-------------------------+--------+--------+